home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / text / edit / GED_Hexedit.lha / GED_Hexedit / hex / deutsch / CloseHex.ged next >
Text File  |  1997-11-13  |  404b  |  2 lines
  1. /* Optimized with RexxOpt 1.8 */
  2. OPTIONS RESULTS;if (LEFT(ADDRESS(),6) ~="GOLDED") then;address 'GOLDED.1';'LOCK CURRENT RELEASE=4';if (RC ~=0) then;exit;OPTIONS FAILAT 6;SIGNAL ON SYNTAX;'QUERY NAME=ordinal var="nummer"';address 'COMMAND';"c:delete >NIL: t:gedbin"||nummer;"c:delete >NIL: t:gedhex"||nummer;address;'UNLOCK';exit;SYNTAX:;SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-(";'UNLOCK';exit